@Flag(Room4FloorWash) @Variable[#DateDifference(Room4Wash, Days)]>=[30] @NullResponse @Goto(Room4Wash)
@Variable[#DateDifference(Room4Wipe, Days)]>=[14] @NullResponse @Goto(Room4Wipe)
@Variable[#DateDifference(Room4Vacuum, Days)]>=[7] @NullResponse @Goto(Room4Vacuum)
(Room4Wash)
@NullResponse @TempFlag(Room4WashFloorTemp)
@SystemMessage #VANC #VANP Room 4! @ShowImage[\GNMImages\Home\*.jpg]
@SystemMessage #VANC #VANP @RT(It's time to mop the floors!,Time for you to mop the floors,Lets have you do some floor mopping!,Time to mop mop mop #GNMGrin,Work work work all day - mop all night #GNMLol) 
@SystemMessage #VANC #VANP But @RT(first,before that,before we get to that,just before)
@SystemMessage #VANC #VANP @RT(They need to be vacuumed,You have to vacuum them first,You gotta go ahead and vacuum them..) 
@SystemMessage #VANC #VANP @RT(Fetch,Find and get,Retrieve) your vacuum cleaner, and whatever you need to mop the floors. @Wait(10) @Goto(Loop)
(Room4Wipe)
@NullResponse @TempFlag(Room4WipeTemp)
@SystemMessage #VANC #VANP Room 4! @ShowImage[\GNMImages\Home\*.jpg]
@SystemMessage #VANC #VANP @RT(It's time to wipe the surfaces!,Time for you to wipe the surfaces,Lets have you do some wiping!,Time to wipe wipe wipe #GNMGrin,Work work work all day - wipe all night #GNMLol)
@SystemMessage #VANC #VANP But @RT(first,before that,before we get to that,just before)
@SystemMessage #VANC #VANP @RT(You need to be vacuum the floor and other surfaces,You have to vacuum the floor and surfaces first,You gotta go ahead and vacuum the floor then the surfaces..) 
@SystemMessage #VANC #VANP @RT(Fetch,Find and get,Retrieve) your vacuum cleaner, and whatever you need to wipe and properly clean the surfaces. @Wait(10) @Goto(Loop)
(Room4Vacuum)
@NullResponse @TempFlag(Room4VacuumFloorTemp)
@SystemMessage #VANC #VANP Room 4! @ShowImage[\GNMImages\Home\*.jpg]
@SystemMessage #VANC #VANP @RT(It's time to vacuum!,Time for you to vacuum the floor,Lets have you do some vacuuming!,Time to clean clean clean #GNMGrin,Work work work all day - clean all night #GNMLol)
@SystemMessage #VANC #VANP @RT(You need to be vacuum the floor,You have to vacuum the floor,You gotta go ahead and vacuum the floor) 
@SystemMessage #VANC #VANP @RT(Fetch,Find and get,Retrieve) your vacuum cleaner @Wait(10) @Goto(Loop)
(Loop)
@SystemMessage #VANC #VANP #GNMReady
[yes]@SystemMessage #VANC #VANP #GNMGood
[no]@SystemMessage #VANC #VANP Hurry.. @Wait(10) @Goto(Loop)
@DifferentAnswer @SystemMessage #VANC #VANP #GNMYesOrNo
@NullResponse @CallReturn(CR\BackgroundMode\Chores\KinkyCleaning.txt)
@SystemMessage #VANC #VANP Okay then 
@SystemMessage #VANC #VANP You can go ahead and start with the cleaning.. 
@SystemMessage #VANC #VANP Report when you're done cleaning @CustomMode(#Done, Goto, Done)
(StartTimer)
@NullResponse @SetVar[CleaningTimeTemp]=[0]
@NullResponse @CountVar[CleaningTimeTemp]
@NullResponse @CheckFlag(BellGame1)
@NullResponse @CheckFlag(BellGame2) @Goto(Timer)
(BellGame1)
@NullResponse @Wait(#Random(20,120)) @Goto(Corner)
(Corner)
@SystemMessage #VANC #VANP Go to the corner #SlaveName @PlayAudio[\GNMSounds\SpecialSounds\Bell.mp3] @CountVar[CleaningTimeTemp, Stop] @Wait(#Random(20,60))
@SystemMessage #VANC #VANP Return to work #SlaveName @PlayAudio[\GNMSounds\SpecialSounds\Bell.mp3] @CountVar[CleaningTimeTemp] @Goto(BellGame1)
(BellGame2)
@NullResponse @Wait(#Random(20,120)) @Goto(Sentence)
(Sentence)
@NullResponse @PlayAudio[\GNMSounds\SpecialSounds\Bell.mp3] @CountVar[CleaningTimeTemp, Stop]
(Type)
@SystemMessage #VANC #VANP @RT(I have to clean properly,I'm a cleaning slut,I have to clean with a smile,Cleaning makes me happy,You can never clean enough,I wish I could clean all day,I really love cleaning)
[i have to clean properly]@SystemMessage #VANC #VANP Get back to cleaning
[i'm a cleaning slut]@SystemMessage #VANC #VANP Get back to cleaning
[i have to clean with a smile]@SystemMessage #VANC #VANP Get back to cleaning
[cleaning makes me happy]@SystemMessage #VANC #VANP Get back to cleaning 
[you can never clean enough]@SystemMessage #VANC #VANP Get back to cleaning 
[i wish i could clean all day]@SystemMessage #VANC #VANP Get back to cleaning
[i really love cleaning]@SystemMessage #VANC #VANP Get back to cleaning 
@AcceptAnswer @SystemMessage #VANC #VANP Wrong.. Try again.. @Goto(Type)
@SystemMessage #VANC #VANP Return to work @CountVar[CleaningTimeTemp] @Goto(BellGame2)
(Timer)
@NullResponse @Wait(99999)
(Done)
@NullResponse @CustomMode(#Done,Normal) @CountVar[CleaningTimeTemp, Stop]
@SystemMessage #VANC #VANP So you're done.. 
@NullResponse @RapidCodeOn @CheckFlag(Room4AverageSet)
@NullResponse @CheckFlag(Room45AverageSet)
@NullResponse @CheckFlag(Room44AverageSet)
@NullResponse @CheckFlag(Room43AverageSet)
@NullResponse @CheckFlag(Room42AverageSet)
@NullResponse @Goto(Room41AverageSet)
(Room41AverageSet)
@NullResponse @SetVar[Room41Average]=[0] @SetFlag(Room42AverageSet)
@NullResponse @ChangeVar[Room41Average]=[Room41Average]+[CleaningTimeTemp] @Goto(Satisfied)
(Room42AverageSet)
@NullResponse @SetVar[Room42Average]=[0] @SetFlag(Room43AverageSet)
@NullResponse @ChangeVar[Room42Average]=[Room42Average]+[CleaningTimeTemp] @Goto(Satisfied)
(Room43AverageSet)
@NullResponse @SetVar[Room43Average]=[0] @SetFlag(Room44AverageSet)
@NullResponse @ChangeVar[Room43Average]=[Room43Average]+[CleaningTimeTemp] @Goto(Satisfied)
(Room44AverageSet)
@NullResponse @SetVar[Room44Average]=[0] @SetFlag(Room45AverageSet)
@NullResponse @ChangeVar[Room44Average]=[Room44Average]+[CleaningTimeTemp] @Goto(Satisfied)
(Room45AverageSet)
@NullResponse @SetVar[Room45Average]=[0] @SetFlag(Room4AverageSet)
@NullResponse @ChangeVar[Room45Average]=[Room45Average]+[CleaningTimeTemp]
@NullResponse @SetVar[Room4Average]=[0]
@NullResponse @ChangeVar[Room4Average]=[Room4Average]+[Room41Average]
@NullResponse @ChangeVar[Room4Average]=[Room4Average]+[Room42Average]
@NullResponse @ChangeVar[Room4Average]=[Room4Average]+[Room43Average]
@NullResponse @ChangeVar[Room4Average]=[Room4Average]+[Room44Average]
@NullResponse @ChangeVar[Room4Average]=[Room4Average]+[Room45Average]
@NullResponse @ChangeVar[Room4Average]=[Room4Average]/[5]
@NullResponse @SetVar[Room4Slow]=[0]
@NullResponse @ChangeVar[Room4Slow]=[Room4Slow]+[Room4Average]
@NullResponse @ChangeVar[Room4Slow]=[Room4Slow]*[2]
@NullResponse @SetVar[Room4Fast]=[0]
@NullResponse @ChangeVar[Room4Fast]=[Room4Fast]+[Room4Average]
@NullResponse @ChangeVar[Room4Fast]=[Room4Fast]/[2]
@NullResponse @SetVar[Room4ScopeLow]=[0]
@NullResponse @ChangeVar[Room4ScopeLow]=[Room4ScopeLow]+[Room4Average]
@NullResponse @ChangeVar[Room4ScopeLow]=[Room4ScopeLow]/[4]
@NullResponse @ChangeVar[Room4ScopeLow]=[Room4ScopeLow]*[3]
@NullResponse @SetVar[Room4ScopeHigh]=[0]
@NullResponse @ChangeVar[Room4ScopeHigh]=[Room4ScopeHigh]+[Room4Average]
@NullResponse @ChangeVar[Room4ScopeHigh]=[Room4ScopeHigh]/[4]
@NullResponse @ChangeVar[Room4ScopeHigh]=[Room4ScopeHigh]*[5]
@NullResponse @SetVar[Room4WipeTime]=[0]
@NullResponse @ChangeVar[Room4WipeTime]=[Room4WipeTime]+[Room4Average]
@NullResponse @ChangeVar[Room4WipeTime]=[Room4WipeTime]/[4]
@NullResponse @ChangeVar[Room4WipeTime]=[Room4WipeTime]*[5]
@NullResponse @SetVar[Room4WipeSlow]=[0]
@NullResponse @ChangeVar[Room4WipeSlow]=[Room4WipeSlow]+[Room4WipeTime]
@NullResponse @ChangeVar[Room4WipeSlow]=[Room4WipeSlow]*[2]
@NullResponse @SetVar[Room4WipeFast]=[0]
@NullResponse @ChangeVar[Room4WipeFast]=[Room4WipeFast]+[Room4WipeTime]
@NullResponse @ChangeVar[Room4WipeFast]=[Room4WipeFast]/[2]
@NullResponse @SetVar[Room4WipeScopeLow]=[0]
@NullResponse @ChangeVar[Room4WipeScopeLow]=[Room4WipeScopeLow]+[Room4WipeTime]
@NullResponse @ChangeVar[Room4WipeScopeLow]=[Room4WipeScopeLow]/[4]
@NullResponse @ChangeVar[Room4WipeScopeLow]=[Room4WipeScopeLow]*[3]
@NullResponse @SetVar[Room4WipeScopeHigh]=[0]
@NullResponse @ChangeVar[Room4WipeScopeHigh]=[Room4WipeScopeHigh]+[Room4WipeTime]
@NullResponse @ChangeVar[Room4WipeScopeHigh]=[Room4WipeScopeHigh]/[4]
@NullResponse @ChangeVar[Room4WipeScopeHigh]=[Room4WipeScopeHigh]*[5]
@NullResponse @SetVar[Room4WashTime]=[0]
@NullResponse @ChangeVar[Room4WashTime]=[Room4WashTime]+[Room4Average]
@NullResponse @ChangeVar[Room4WashTime]=[Room4WashTime]/[4]
@NullResponse @ChangeVar[Room4WipeTime]=[Room4WipeTime]*[5]
@NullResponse @SetVar[Room4WashSlow]=[0]
@NullResponse @ChangeVar[Room4WashSlow]=[Room4WashSlow]+[Room4WashTime]
@NullResponse @ChangeVar[Room4WashSlow]=[Room4WashSlow]*[2]
@NullResponse @SetVar[Room4WashFast]=[0]
@NullResponse @ChangeVar[Room4WashFast]=[Room4WashFast]+[Room4WashTime]
@NullResponse @ChangeVar[Room4WashFast]=[Room4WashFast]/[2]
@NullResponse @SetVar[Room4WashScopeLow]=[0]
@NullResponse @ChangeVar[Room4WashScopeLow]=[Room4WashScopeLow]+[Room4WashTime]
@NullResponse @ChangeVar[Room4WashScopeLow]=[Room4WashScopeLow]/[4]
@NullResponse @ChangeVar[Room4WashScopeLow]=[Room4WashScopeLow]*[3]
@NullResponse @SetVar[Room4WashScopeHigh]=[0]
@NullResponse @ChangeVar[Room4WashScopeHigh]=[Room4WashScopeHigh]+[Room4WashTime]
@NullResponse @ChangeVar[Room4WashScopeHigh]=[Room4WashScopeHigh]/[4]
@NullResponse @ChangeVar[Room4WashScopeHigh]=[Room4WashScopeHigh]*[5]
(Room4AverageSet)
@Flag(Room4VacuumFloorTemp) @NullResponse @Goto(Vacuum)
@Flag(Room4WipeTemp) @NullResponse @Goto(Wipe)
@Flag(Room4WashFloorTemp) @NullResponse @Goto(Wash)
@NullResponse @Goto(Vacuum)
(Vacuum)
@NullResponse @If[CleaningTimeTemp]>=[Room4ScopeLow]AND[CleaningTimeTemp]<=[Room4ScopeHigh]Then(EndPerfect)
@NullResponse @If[CleaningTimeTemp]<=[Room4Fast]Then(EndFast)
@NullResponse @If[CleaningTimeTemp]>=[Room4Slow]Then(EndSlow)
@NullResponse @If[CleaningTimeTemp]<=[Room4ScopeLow]Then(EndSlower)
@NullResponse @If[CleaningTimeTemp]>=[Room4ScopeHigh]Then(EndFaster)
(Wipe)
@NullResponse @If[CleaningTimeTemp]>=[Room4WipeScopeLow]AND[CleaningTimeTemp]<=[Room4WipeScopeHigh]Then(EndPerfect)
@NullResponse @If[CleaningTimeTemp]<=[Room4WipeFast]Then(EndFast)
@NullResponse @If[CleaningTimeTemp]>=[Room4WipeSlow]Then(EndSlow)
@NullResponse @If[CleaningTimeTemp]<=[Room4WipeScopeLow]Then(EndSlower)
@NullResponse @If[CleaningTimeTemp]>=[Room4WipeScopeHigh]Then(EndFaster)
(Wash)
@NullResponse @If[CleaningTimeTemp]>=[Room4WashScopeLow]AND[CleaningTimeTemp]<=[Room4WashScopeHigh]Then(EndPerfect)
@NullResponse @If[CleaningTimeTemp]<=[Room4WashFast]Then(EndFast)
@NullResponse @If[CleaningTimeTemp]>=[Room4WashSlow]Then(EndSlow)
@NullResponse @If[CleaningTimeTemp]<=[Room4WashScopeLow]Then(EndSlower)
@NullResponse @If[CleaningTimeTemp]>=[Room4WashScopeHigh]Then(EndFaster)
(Satisfied)
@SystemMessage #VANC #VANP Good job today #SlaveName @Goto(FlagTest)
(EndFast)
@SystemMessage #VANC #VANP @RT(Too fast!,That was waay too fast #SlaveName !!,Impossible,You cant possible be this fast!)
@SystemMessage #VANC #VANP @RT(That cant go unpunished,I have to punish you for this,I'm gonna have to punish you..) 
@SystemMessage #VANC #VANP I have assigned you punishment points @ChangeVar[GNMPPoints]=[GNMPPoints]+[200] @Goto(FlagTest)
(EndSlow)
@SystemMessage #VANC #VANP @RT(You're late!,You're late #SlaveName,You're late slut..,Late are we?,You know you're late right?)
@SystemMessage #VANC #VANP @RT(I dont tolerate late!,You know I dont tolerate it when you're late,There is zero tolerance for being late and lazy!) 
@SystemMessage #VANC #VANP I have assigned you punishment points @ChangeVar[GNMPPoints]=[GNMPPoints]+[200] @Goto(FlagTest)
(EndSlower)
@SystemMessage #VANC #VANP You've been slower than usual.. @CheckFlag(CleaningWarning)
@SystemMessage #VANC #VANP Anything I should know?
[lazy,laziness]@SystemMessage #VANC #VANP @RT(Inexcusable!,You know that laziness cant be tolerated!)
[tired,need rest,sleep]@SystemMessage #VANC #VANP @RT(Inexcusable,I dont care if you're tired!)
[toys,you made me,you told me]@SystemMessage #VANC #VANP @RT(Excuses! really!?,Wauv you're gonna blame me..)
[thorough,better cleaning]@SystemMessage #VANC #VANP I see but you should always be thorough!
[dirty,dirtier,dusty]@SystemMessage #VANC #VANP Your #Home should always be tidy!
@AcceptAnswer @SystemMessage #VANC #VANP I'm giving you a warning #SlaveName @SetFlag(CleaningWarning) @Goto(FlagTest)
@SystemMessage #VANC #VANP @RT(I'm gonna have to punish you slave,I'm sorry but this cant go unpunished)
@SystemMessage #VANC #VANP I have assigned you punishment points @ChangeVar[GNMPPoints]=[GNMPPoints]+[100] @Goto(FlagTest)
(CleaningWarning)
@SystemMessage #VANC #VANP I gave you a warning last time! @DeleteFlag(CleaningWarning)
@SystemMessage #VANC #VANP So this time I'm punishing you! 
@SystemMessage #VANC #VANP I have assigned you punishment points @ChangeVar[GNMPPoints]=[GNMPPoints]+[100] @Goto(FlagTest)
(EndFaster)
@SystemMessage #VANC #VANP You've been faster than usual.. @CheckFlag(CleaningWarning)
@SystemMessage #VANC #VANP Anything I should know?
@SystemMessage #VANC #VANP You cant haste thoroughness!
@SystemMessage #VANC #VANP I expect that you're always thorough when cleaning
@SystemMessage #VANC #VANP @RT(I'm gonna have to punish you slave,I'm sorry but this cant go unpunished)
@SystemMessage #VANC #VANP I have assigned you punishment points @ChangeVar[GNMPPoints]=[GNMPPoints]+[100] @Goto(FlagTest)
(EndPerfect)
@SystemMessage #VANC #VANP #GNMGood #SlaveName #MeritChangePMedium
@SystemMessage #VANC #VANP Allow me to reward your @RT(splendid,good,exelent,lovely) @RT(behaviour,work) #GNMGrin @ChangeVar[GNMGold]=[GNMGold]+[#GoldMedium] @Goto(FlagTest)
(FlagTest)
@NullResponse @CheckFlag(Room4WashFloorTemp)
@NullResponse @CheckFlag(Room4VacuumFloorTemp)
@NullResponse @CheckFlag(Room4WipeTemp) @Goto(Room4VacuumFloorTemp)
(Room4VacuumFloorTemp)
@NullResponse @ChangeVar[ChoreComplete]=[ChoreComplete]+[1] @SetDate(Room4Vacuum, 0 days)
@End
(Room4WashFloorTemp)
@NullResponse @ChangeVar[ChoreComplete]=[ChoreComplete]+[1] @SetDate(Room4Vacuum, 0 days)
@NullResponse @SetDate(Room4Wash, 0 days)
@End
(Room4WipeTemp)
@NullResponse @ChangeVar[ChoreComplete]=[ChoreComplete]+[1] @SetDate(Room4Vacuum, 0 days)
@NullResponse @SetDate(Room4Wipe, 0 days)
@End